(*
   +----------------------------------------------------------------------+
   | HipHop for PHP                                                       |
   +----------------------------------------------------------------------+
   | Copyright (c) 2010-present Facebook, Inc. (http://www.facebook.com)  |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | http://www.php.net/license/3_01.txt                                  |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
*)

type 'a m = 'a list

let return = Hh_core.List.return

let join = Hh_core.List.join

let (>>|) = Hh_core.List.(>>|)

let fmap = (>>|)

let lift f l = l >>| f

let bind = Hh_core.List.bind

let (>>=) = bind

let add_event lst x = x :: lst

let ignore _ = ()
